home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / QV.LOAD (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  4.1 KB  |  242 lines
  1. QV_LOAD
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4.     QV_TABLES
  5. LASTER'S 
  6. ONVERTER 
  7. COPE Source V1.1
  8. QuickView
  9. COPE Editor V1.3
  10. Untitled
  11. bMpMuM
  12. N%N-N
  13. ; LOAD ROUTINE
  14. ; Routine for QuickView, loads and reloads buffer for
  15. ; geoWrite Image files.
  16. jsr i_ImprintRectangle
  17. .Byte 0,199
  18. .Word 0,319
  19.  lda #0
  20.  sta ExitByte
  21.  sta CurRecord
  22.  jsr TestDrive
  23.  LDA CancelFlag
  24.  CMP #2
  25.  BEQ @LOLO3X
  26.  LDA FNAME
  27.  BEQ @LOLO3X
  28.  JSR SETUPM
  29. @LOLO3X
  30.  LDA #2
  31.  STA CancelFlag
  32. ;====
  33. ; DRIVE/DISK switching routines.
  34. ; test here for size
  35. TestDrive
  36.  LDA #0
  37.  STA FNAME
  38. lda #0
  39. sta CancelFlag
  40.  jsr DriveInfo
  41. loadw R0:vnDB
  42. loadw R5:FNAME
  43. loadw R10:dtaimg
  44.  lda #7
  45.  sta R7
  46.  JSR $C256
  47.  LDA R0
  48.  CMP #2
  49.  BNE @vnEXIT
  50.  STA CancelFlag
  51. @vnEXIT
  52.  cmp #20
  53.  bne @VN1
  54.  jsr ChangeDrive
  55.  branch @Vl1
  56.  cmp #6
  57.  bne @VN2
  58.  jsr ChangeDisk
  59.  lda CancelFlag
  60.  cmp #2
  61.  beq @VN2
  62.  branch @Vl1
  63. ;----
  64. DriveInfo
  65.  lda numDrives
  66.  cmp #2
  67.  bcs @Drive2
  68. Drive1
  69.  lda #0
  70.  sta DRIVE
  71.  beq @DoDB
  72. @Drive2
  73.  lda #18
  74.  sta DRIVE
  75. @DoDB
  76.  ldx #R4
  77.  jsr GetPtrCurDkNm
  78.  ldy #0
  79.  lda (R4),Y
  80.  cmp #$A0
  81.  beq @Do2
  82.  sta DiskStr,y
  83.  cpy #16
  84.  bne @Do1
  85.  lda #0
  86.  sta DiskStr,y
  87.  lda curDrive
  88.  adc #57
  89.  sta Dsk1
  90. ;----
  91. .BYTE 128+2
  92. .Byte 2,17,41 ; CANCEL icon
  93. .Byte 5,17,23 ; OPENO
  94. .Byte 16 ;get DBfiles
  95. .Byte 4,4
  96. .Byte 11,131,9 ; TextString
  97. .Word Dsk
  98. .Byte 11,131,19 ; TextString
  99. .Word DiskStr
  100. .Byte 6,17,77
  101. DRIVE
  102. .Byte 18,17,59
  103. .Word Drive_Icon_Data
  104. .Byte 0
  105. ;=====
  106. ChangeDrive
  107.  lda curDrive
  108.  EOR #1
  109. ChangeDrive1
  110.  jsr SetDevice
  111. ChangeDisk
  112. loadw R0:DiskDB
  113.  JSR $C256
  114.  lda R0
  115.  cmp #2
  116.  beq @SkDisk
  117.  lda curDrive
  118.  jsr $C2B0
  119.  jsr $C2A1
  120. @SkDisk
  121.  sta CancelFlag
  122. DiskDB
  123.  .Byte 128+2
  124.  .Byte 11,4,16
  125.  .Word DskMssg
  126.  .Byte 2,17,68
  127.  .Byte 1,17,40
  128.  .Byte 0
  129. DskMssg .Byte BOLD,'Insert disk into drive',PLAIN,0
  130. ;=============
  131.  lda #20
  132.  sta sysDBData
  133.  jmp $C2BF
  134. ;========
  135. Drive_Icon_Data
  136. .Word DIcn
  137. .Byte 0,0
  138. .Byte 6,16
  139. .Word DS1
  140. ;=====
  141. dtaimg .Byte 'Write Image',0
  142. DiskStr .Block 17,0
  143. Dsk .Byte BOLD,'Drive: '
  144. Dsk1 .Byte 'A',PLAIN,0
  145. .Byte 5,$FF,$82,$FE,$80,4,0,$82,3
  146. .Byte $80,4,0,$B8,3,$81,$F0,1,$80,0,3,$81,$98,0,0,0
  147. .Byte 3,$81,$8D,$FB,$B3,$3C,3,$81,$8D,$C1,$B3,$66
  148. .Byte 3,$81,$8D,$81,$B3,$66,3,$81,$8D,$81,$9E,$7E
  149. .Byte 3,$81,$8D,$81,$9E,$60,3,$81,$99,$81,$8C,$66,3,$81
  150. .Byte $F1,$81,$8C,$3C,3,$80,4,0,$82,3,$80,4,0,$81,3
  151. .Byte 6,$FF,$81,$7F,5,$FF
  152. ;====
  153. ;-----
  154. OvrEx
  155. loadw R0:OE1
  156.  JSR $C256
  157. .BYTE 128+2,2,17,68
  158. .Byte 11,4,16
  159. .WORD OES1
  160. ; DB TEXT STRING
  161. .BYTE 11,24,28
  162. .WORD OES2
  163. .BYTE 0
  164. OES1 .BYTE BOLD,'This Version cannot',0
  165. OES2 .BYTE 'be edited.',PLAIN,0
  166. ;=======
  167. SETUPM
  168.  lda #0
  169.  sta NoRecord
  170. loadw R6:FNAME
  171.  jsr $C20B
  172. loadw R9:dirEntryBuf
  173.  jsr GetFHdrInfo
  174.  jsr TestVersion; check version of this file.
  175.  bmi @under; under is the default version useful to
  176. ; this program.. Thats at V2.0 right now.
  177.  bne OvrEx
  178. @under
  179.  lda FileHeader+70
  180. loadw R0:FNAME
  181.  jsr OpenRecordFile
  182.  lda CurRecord
  183.  jsr PointRecord
  184. ; do disk errors here.
  185. ; if last record then ask to create.
  186.  BEQ @lzp3
  187.  jsr CloseRecordFile
  188.  lda curRecord
  189.  sta CurRecord
  190. @lzp3
  191.  bne @lzp4
  192.  jsr CloseRecordFile
  193.  lda curRecord
  194.  sta CurRecord
  195.  lda #1
  196.  sta NoRecord
  197. ;----
  198. @lzp4
  199. loadw R7:$4000
  200. loadw R2:$2000
  201.  jsr ReadRecord
  202.  jsr CloseRecordFile
  203.  lda curRecord
  204.  sta CurRecord
  205. movew R7:EOB
  206.  LDX #EOB
  207.  JSR $C175
  208. movew SOB:CBP
  209.  ldx SOB; SOB is pointint one byte below the char
  210.  dex    ; mode byte
  211.  lda $4000,X
  212.  sta CvChar
  213. ;-----
  214. TestVersion
  215.  lda FileHeader+90
  216.  cmp #'2 ; character value of 2
  217.  beq @TVo
  218.  bcs @TVo1
  219.  lda #24
  220.  sta SOB
  221.  lda FileHeader+92
  222.  cmp #'1 ; character value of 1
  223.  bcc @TVunder
  224.  bcs @TVequal
  225.  lda #31; was #32
  226.  sta SOB
  227.  lda FileHeader+92
  228.  cmp #'2 ; was #'0 and beq below
  229.  bcc @TVequal ; was beq @TVequal
  230. @TVo1
  231.  lda #1
  232.  bne @TvEx
  233. @TVunder
  234.  lda #$FF
  235.  bne @TvEx
  236. @TVequal
  237.  lda #0
  238. @TvEx
  239.  sta VerByt; Version byte is upgraded on each load.
  240. VerByt .Byte 0
  241. ;-----
  242.